
Spectrum 

Vu Meter 
Stereo 


Sul vostro TV l'andamento di qualsiasi segnale audio grazio a questo VU-Meter poi 
Spectrum da col legare alle schede presentate in aprile e maggio. 


D opo il convertitore A/D proposto il mese 
scorso e la sound board presentata sul fasci¬ 
colo di aprile, è ora la volta di un’altra piccola 
scheda in grado di trasformare il vostro TV color in 
un enorme vu-meter stereo. Sullo schermo vengono 
visualizzate due bande colorate che, muovendosi a 
ritmo di musica, indicano il livello del segnale dello 
stereo di casa o quello di qualsiasi altra apparecchia¬ 
tura audio. 

L'apparecchio pertanto consente non solo di 
tenere costantemente sotto controllo il livello ma 
anche di avere sul TV un effetto ottico particolar¬ 
mente gradevole che da solo giustificherebbe la 
costruzione di questo circuito, in som ma, oltre che 
urto strumento anche un effetto da discoteca. Il cir¬ 
cuito preleva parte del segnale di entrambi i canali di 
una qualsiasi apparecchiatura audio; il segnale 


alternato viene raddrizzato e reso perfettamente 
continuo. Le due tensioni continue che si ottengono 
vengono inviate alternativamente al l'ingresso del 
modulo voltmetro e quindi, tramite la sound board, 
allo Spectrum. 

1 dati che giungono al computer vengono visualiz¬ 
zati sotto forma di barre orizzontali colorate. Ogni 
secondo vengono effettuate più letture e pertanto le 
due barre seguono costantemente il ritmo della 
musica. 

Vediamo ora più da vicino il funzionamento del 
circuito. Lo stadio d'ingresso è composto da due 
sezioni perfettamente uguali tra loro, ne descrìve¬ 
le mo pertanto una sola, li segnale audio giunge ai 
capi del trimmer RI mediante il quale è possibile 
regolare la sensibilità del vu-meter. Nel caso di col¬ 
legamento ad un amplificatore di potenza è consi- 
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CHE BELLO SUL VIDEO 


L’immagine visualìzzaly sul TY\ oltre a permettere un 
costante controllo del livello audio, rappresenta, con le 
barre colorate in continuo movimento, un indubbio 
motivo di richiamo, un effetto ottico che già di per sé 
giustifica la costruzione di questa apparecchiatura. 


IL PROGRAMMA 


000 


1 REM 

£ REM — J Ju Mèter stereo-- 

„ „-I.yl984. NELLA DARIO- 

J REM 

4 REM 

5 ClEhR 31999: LORO ""CODE 32 


LS 


10 BuROER 0: PRPEft 1: INK 9; i 


hT 3,0. XNK 7; "ORNALE 

binistru*- ■ parer ai ■■ i i i i i ì i i i m 

I I I I I I I I I I II I 11 I I I II I ■■ 

_ =: 1 PR1MT AT 11,0; INK 7; PAPER 
, 3 • . 1 1 II I 1 I l t I I I I I I I I I I I I 1 ) I I | I 

I I U 1 ' PAPER 1, "ORNALE DESTRO" 

J0 PRINT RT 6,0; PRPER 0, 

'*0 PRINT RT 17,6; INK 2; PRPER 
7:"ELETTRONICA 2000" 

120 PRINT hT 5.0; 6RIGHT 1. INK 

“ "; BRIO 

RT 0; INK 6;" "j ERIGhT 1; I 

NK 2 ; " 

130 PRINT HT 10,0; BRIGHT i; in 
K 4," "; BRI 

GHT 0; INK 6," " : BRIGhT 1; 

INK 2; " 

140 BRIGHT 8 : INK 8 


130 LET 



160 LET 


170 REM *** LOUP DI CONVERSIONE 
E STAMPA *#* 

171 REM 

160 LET a = INT (. OSitUSR 32000) 
190 OUT 223,0 
200 IF a>31 THEN LET à=32 
210 PRINT RT 5,0;à$( TO *);bt(a 
+ 1 Tu :■ 

220 LET a = INT i.05*USR 32000) 
230 OUT 223,8 
24-0 IF a >31 THEN LET à =32 
250 PRINT RT 10,0; a*«. TO a):b$< 
à +1 T 0 ì 
260 GO TO 160 

1000 ShUÈ "vustereo" LINE 1: ShU 
E "(li c "CODE 320O0.200 



protezione da 10 Kohm; .se l'ampliti calure eroga 
pochi watt questa resistenza non è indispensabile. Il 
segnale audio viene quindi raddrizzato e filtrato dai 
diodi DI e D2 e dal condensatore elettrolitico C2. La 
strana rete che troviamo subito dopo (formata dai 
diodi D3, D4 e D5) ha il compito ili rendere logarit¬ 
mico il segnale d'uscita di questo stadio. La trasfor¬ 
mazione da lineare a logaritmico può, in teoria, 
essere effettuata anche dallo Speclrum. Un'opera¬ 
zione del genere però provocherebbe un aumento 
dd tempo di lettura e quindi l'impossibilità di effet¬ 
tuare numerose letture al secondo come è richiesto 
in questo caso. 
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schema elettrico 



Le le ns ioni con timi e presenti sull'uscita del cir¬ 
cuito raddrizzatore vengono applicate agli ingressi 
di due interruttori digitali le cui uscite sono col legate 
tra loro ed all'ingresso del modulo voltmetro, 

À seconda di quale interruttore è attivalo, giunge 
il segnale corrispondente al canale destro o a quello 
sinistro. Attivando alternativamente più volte ogni 
secondo i due interruttori, è possibile visualizzare 
contemporaneamente i livelli dei due canali. 11 
segnale di commutazione giunge dal piedino 18 
deirÀY-3-8910 montato sulla sound board. Questo 
segnale viene visualizzato dai letl LD1 e LL>2 1 quali 
sono pilotati dalle porte dell'integrato 1J2. I l circuito 
necessita di una tensione di alimentazione di +5 volt 



INGRESSO 

VOLTMETRO*" 



che può essere prelevata dalla scheda della sound 
board. Il programma è molto semplice, la parte 
basic crea lo screen mentre al linguaggio macchina è 
affidato il compito di leggere i dati forniti dalla 
circuii cria esterna. Per i lettori più esperti ri por¬ 
tiamo il disassemblato del linguaggio macchina. 

Per i meno esperti pubblichiamo invece un sem¬ 
plice programma per il caricamento del LM: dopo 
aver battuto e salvato il programma basic occorre 
dare NEW e battere questo semplice programma 
ultimato il quale bisogna dare RUN ed inserire uno 
alla voka i codici di linguaggio macchina. A carica¬ 
mento concluso salvate su nastro i dati subito dopo 
il programma principale. Passiamo ora alla realizza- 


IL LINGUAGGIO MACCHINA 


243 

6 

0 

£21 

6 2 

64 

14 

211 

221 

143 

203 

247 

13 

211 

221 

119 

40 

246 

197 

62 

14 

221 

203 

163 

223 

62 

1S 

22 ì 

203 

119 

15 

135 

79 

193 

129 

79 

211 

221 

219 

203 

231 

211 

211 

221 

219 

40 

246 

230 

0 

41 

v 'Ci 

C- ^ 3 

9 

41 

229 

9 

193 

9 

14 

211 

221 

16? 

211 

223 


62 

7 

211 

211 

223 

62 

219 

221 

230 

211 

223 

62 

219 

221 

203 

230 

15 

79 

211 

221 

219 

203 

239 

211 

211 

221 

219 

40 

246 

230 

135 

135 

129 

197 

62 

14 

221 

203 

175 

223 

62 

15 

221 

203 

119 

15 

111 

33 

193 

41 

41 

193 

41 

41 

229 

19 3 

62 

219 

221 

203 

251 

201 



10 

CLEhR 

31999 

20 

POR j 

=39000 Tu 32124 

30 

PRINT 

1 » < » « 

J ; i * 

40 

INPUT 

n: PGKE j,n 

50 

PRINT 

n 

60 

NEXT 

P 

J 

70 

5RUE 

M Ufi C "CODE 32000,200 


IL CARICATORE 


Per caricare il linguaggio macchina si può utilizzare questo 
semplice programmino. Dopo aver battuto v registrato il 
programma principale digitale questo programma, date 
RL IS ed inserite uno alla volta i codici del L.\1, A carica¬ 
mento ultimato salvate su nastro (subito dopo il programma 
principale) i dati. 
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il montaggio 



C OMPONENTI: RI, R(> = 47Kohm trimmer, R2, R4, K7, K<), RI 1 = 11 ) Kohm, 
R3. R« - 47 Rotini, R5, RI0= 100 Ohm, R12 = 330 Olmi, CI, C2, C3, C4 - IO 
[■ p -' 6 VL, DI-DIO = IN4I4R, U1 = 4016, U2 = 4001, LD1,2 = Led rossi. La 
basettii stampata è disponibile (eod. .il 7) al prezzo di 5.0(111 lire. Sono alt resi 
disponibili il kit complclo del vu-meter (eod. VS-SP) » lire 22 mila e la rassetta 
con il programma (cod. H4-06) a lire 11 mila. Inviare le richieste tramile vaglia 
postale a MK Periodici ( .so Viti. Emanuele 15, Milano. 


traccia rame 



zione pratica di questo circuito. Come si vede nelle 
illustrazione tulli t componenti sono montati su un 
piccolo circuito stampato contraddistinto dai nume- 
rodi codice 317, È importante, durante il cablaggio, 
non montare al contrario i diodi ed i condensatori 
elettrolitici. Perii moni aggio dei due integrati è con¬ 
sigliabile fare uso degli appositi zoccoli clic consen¬ 


tono di sostituire rapidamente questi elementi in 
caso di guasto. Anche in questo caso c indispensa¬ 
bile inserire correttamente l'integrale nello zoccolo, 
un errore durame questa operazione provocherebbe 
rim mediata distruzione del componente, Passiamo 
ora ai collegamenti. Oltre al positivo di alimenta¬ 
zione ed alla massa che debbono essere prelevali 


IL DISASSEMBLATO 
DEL LINGUAGGIO 
MACCHINA 


7D00 

F3 

DI , 


7D01 

0600 

LD 

B.' 00 

7D03 

3EQ7 

LD 

Fb 07 

7D05 

D3DD 

□UT 

<DD > jA 

7D07 

3E40 

LD 

A / 40 

7D09 

D3DF 

OUT 

(DF),H 

7D0B 

3E0F 

LD 

R, 0E 

7D0P 

D3DD 

□UT 

< DD ),R 

7D0F 

DBDD 

IN 

R, < DD > 

7D11 

E68F 

AND 

8F 

7D13 

CBF7 

SET 

6, R 

7D15 

D3DF 

OUT 

<DF?,R 

7 Dì? 

3E0F 

LD 

FI, 0F 

7D19 

D3DD 

OUT 

(. DD >, R 

7D1B 

DBDD 

IN 

R,CDD> 

7D1D 

CB77 

BIT 

6 > R 


7D1F 

2SF6 

Jp 

Z,?D17 

7D21 

E60F 

AND 

0F 

7D23 

4F 

LD 

C ,ft 

7D24 

C5 

PUSH 

BC 

7D25 

3E0E 

LD 

R.- SE 

7D27 

D3DD 

OUT 

<DD >,R 

7 D29 

DBDD 

IN 

R, < DDJ 

7D2B 

CBB7 

RES 

6 > R 

7D2D 

CBEF 

SET 

5j R 

7D2F 

D3DF 

OUT 

C DF ) .■ R 

7D31 

3E0F 

LD 

R / 0F 

7D33 

D3DD 

ni it 

<DD > ,R 

7D35 

DBDD 

IN 

R< DD ') 

7D37 

CB77 

BIT 

Si fl 

7D39 

2SF6 

JR 

Z,7D31 

7D3B 

E60F 

RND 

QF 

7D3D 

87 

RDD 

R,fi 

7D3E 

4F 

LD 

C,R 

7D3F 

8? 

RDD 

R.. R 

7D40 

87 

RDD 

fì> H 

7D41 

81 

RDD 

R,C 
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I COLL LG 4M ENTI: il circuito del vu-metcr è collegllo sìa all» sound board presentata sul fascicolo di aprile che al 
modulino voltmetro presentalo il mese scorso. 1/alimentazione deve essere prelevata dai 4-5 volt presenti sul circuito della 



rNv>> 


sound board; dal piedino ISdelfAY-.l-SQIO della stessa sound board deve essere prelevato il segnale dì commutazione. Infine 
fusata del vu-metcr va collega!a all'ingresso del modulo voltmetro. 






‘ '.V 


SSìS 




dalla sound board come spiegalo in precedenza, il 
circuito del vu-meter deve essere collegato al l'in¬ 
gresso del modulo voltmetro descritto il mese scorso 
ed al piedino 18deirÀY-3-89lO montato sulla sound 
board. 

Ovviamente il voltmetro deve essere collegato alle 
porte della sound board come spiegato sul fascìcolo 


7D42 

CI 

POP 

BC 

7D43 

SI 

HDD 

R,. C 

7D44 

4F 

LD 

Ct R 

7D45 

C5 

PUSH 

BC 

7D46 

3E0E 

LD 

R,@E 

7D48 

D3DD 

OUT 

< DD > R 

7D4R 

DBDD 

IH 

R,CDD > 

7D4C 

CBRF 

RES 

5/R 

7D4E 

CBE7 

SET 

4,R 

7D50 

D3DF 

□UT 

< DF ) .. R 

7D52 

3E0F 

LD 

H0F 

7D54 

D3DD 

OUT 

<DD),R 

7D56 

DBDD 

IN 

R i< DD ) 

7D58 

CB77 

BIT 

6,R 

7D5R 

28F6 

JR 

2,7D52 

7D5C 

E60F 

AND 

0F 

7D5E 

6F 

LD 

L,fl 

7D5F 

2600 

LD 

H,00 

7D61 

23 

RDD 

HL , HL 

7D62 

E5 

PUSH 

HL 

7D63 

CI 

POP 

BC 


di maggio e la sound board deve essere col legata allo 
slot dello Spectrum* Tutti questi col lega menti vanno 
effettuati prima di dare tensione allo Spectrum. Non 
rimane ora che caricare il programma e provare il 
tutto. Per la taratura è necessario utilizzare un vu- 
meler campione e regolare ì trimmer RI e Ró, 


7D64 

29 

RDD 

HL.. HL 

7D65 

29 

RDD 

HL, HL 

7D66 

09 

RDD 

HL j BC 

7067 

29 

RDD 

HL., HL 

7D68 

E5 

PUSH 

HL 

7D69 

CI . 

POP 

BC 

7D6R 

29 

RDD 

HL,. HL 

7D6B 

■-JQ 

IL./ 

RDD 

HL / HL 

7D6C 

09 

RDD 

HL > BC 

7D6D 

CI 

POP 

BC 

7D6E 

89 

RDD 

HL > E^C 

7D6F 

E5 

PUSH 

HL 

7D70 

CI 

por 

BC 

7D71 

3E0E 

LD 

R..6E 

7073 

D3DD 

OUT 

< DD > / R 

7D75 

DBDD 

IN 

R/< DD > 

7D77 

CBR7 

RES 

4,fi 

7D79 

D3DF 

OUT 

< DF >R 

7D7B 

FB 

EI 


7D7C 

C9 

RET 


7070 

00 

HOP 
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(create ili demolire nel minor tempo possibile il decrepito edificio senza 
cadere in una delle tante trappole che costellano il percorso. 

dì T. PO LI CASTRO 



P er gli appassionati di «videogame», ecco un gio- 
chino «di movimento» che si può giocare su di 
mio Spectrum in versione base ( 1 ò K RAMI. 

M vostro omino si trova al centro d'un gruppo di 
ponteggi appoggiati ad una casa in demolizione, e 
può passare da uno all’altro mediante scale. 

Il suo compilo è di demolire il decrepito edificio, e 
può riuscirvi scollegando i 10 tasselli che lo tengono 
émcora assieme. Se lungo M percorso raccoglie 
determinati oggetti, acquista punti. Ma il percorso è 
costellato di difficoltà: ogni tanto si aprono delle 
trappole sotto piedi, ci sono dei «fuochi fatui» che 
emanano da una fornace e possono arrostirvi, e ci 
sono focacce su cui scivolate se vi mettete sopra il 
piede. Potete muovervi lungo ì ponteggi e su e giù 
per le scale con le solite 4 frecce (5-8): polcte saltar al 
disopra degli ostacoli pericolosi premendo il tasto 0 
e subito dopo un tasto di movimento (freccia destra 
o sinistra). Attenti inoltre: alcuni degli oggetti da 
raccogliere nascondono una trappola esplosiva! 


Potete disporre di tre omini per rimpiazzare 
quello «caduto»; se riuscite nelPintento di demolire 
Pedi fi ciò per 4 volle, ricevete un omino in più. 

Anche le difficoltà aumentano però dopo ogni 
vittoria! 

I vari sìmboli grafici che compaiono lungo il 
listato (costituiscono i var i elementi della grafica che 
compare e si muove sullo schermo) sono ricavati dai 
21 UDG posti in memoria nel l'area 65368-65535. 
Per costruirli, cominciate a impostare il programma 
dalla riga 920 sino alla 990, badando a non commet¬ 
tere errori nei DATA. À questo punto date RUN: 
nell’area citata si formeranno i vari «caratteri gra¬ 
fici». Passate ora ad impostare il resto del pro¬ 
gram ni a: ogni volta che dovrete inserire un carattere 
grafico, passate in modo «G» (CAPS SHIFT + 9) e 
battete la lettera (À t B,..«,U) corrispondente, come 
dalla figura allegata; poi tornate in modo «L». 
Alcuni «disegnini» sono costituiti da 2 UDG affian¬ 
cati tesi L+M), 
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software 


Quando caricate i! programma da nastro, gii i simboli grafici 
UDG necessari non sono angora esistenti. Con il 
primo RUN viene però lanciato anche un GOSUB 
920 che determina la creazione degli UDG. Nulla ^ - r- 

vieta, naturalmente, se lo preferite, di salvare gli * 

U DG assieme al programma SAVE « UDG» CODE - - 


IL PROGRAMMA 


10 BORQER 1: PAPER 1: CLS : IN 
PRINT fiT 10,9. FLASH 1;"ATT 
DI!". SO SUB 1000; GO SUB 920 
SO LET as = " <LL 


40 Gu 5UB 50: G0 SUB 120: PRIN 
T PT 7,9;"Si comincia!"; FOR fai 
Tu 275: NEXT f; PRINT AT 7.9;" 

"; GO TO 150 

S0 CLS : FOR rag TO 21 STEP 4: 
P gINT AT f,a:"zszssasEsssgasTO 

SSS a a -sXtyx xxiiitx’ 1 ; next f 

60 PRINT se; INK 5, AT 0.3 . "£i E 
I.ett fonica 200S - 1933“ 

70 INK 3: FOR f=5 TO 21 STEP 4 
: PRINT PT f.10; •■"jAT f,20;"S": 
NEXT f 

30 INK 4: FOR f=5 TO 6; PRINT 
AT f ,3; "PI" ; AT f , 29. "R" , AT r+4,6. 
"prjfiT f +4,26; "PI" ; AT f +8, 12; "B" ; 
hT f+8,13;"R";AT r+12,5; "PI"; AT f 
+ 12,15, "PI"; AT f +12 j 27; "PI" : NEXT 
f 

90 BRIGHT 1: INK 5: PRINT AT 4 
, 2 ; "*" hT 4,28;'"T" . AT 16.1;"®". A 
T 12,4, "li" ; AT 12,27; "t" . HT 16.28 
. "W, hT 16.13,"*"; INK 7: BRIGHT 


100 PRINT AT 3,14: INK 2; ,, 'sW'iA 
9,13, INK 6;" loTtl " ; INK 6: PLO 
T 112,96: DRAU 0.-3; ORAU 15.0; 
DRAU 0,3: PLOT 112,90; ORBO 15,0 
: INK 7; RETURN 
120 LET 3 a 12 : LET b = 15 
130 PRINT AT 0,0; "PUNTI: " .i, hT 
S,13;"ATTIOIr ";hT 1,25;" 

FOR fai TO v*2 STEP 2: 
PRINT AT 0., 25 +f HT 1,25 + f: l, '«! 

": NEXT fi RETURN 

.150 PRINT AT a -1, b ;;AT a,b." 


160 GO SUB 370 

170 IF RND >■ . 9 i THEN GO TO 520 
180 IF a=8 ThEN GO TO 730 
190 IF a «20 THEN GO TO 330 
2O0 IF INKEYt = "" THEN GO TO 150 
210 LET è S = INKEY $ : IF e$="9" TH 
N GO TO 350 

220_IF e s = "7" ThEN PRINT AT a-1 
b; "U" ,AT a,b;"À": FOR f = l TO 3; 
NEXT f; GO TO 240 
230 PRINT AT a.b;"'(J'" 

240 lET s=S+S: PRINT AT 0,7;s: 
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.a, 

:"r 1 



£ 65368.168 per ricaricarli poi con «LOAD» CODE. 

Ricordiamo che questo programma, così come tutti 
iJ - gli altri presentati in questo numero della rivista, è 

ips disponibile su cassetta al prezzo di 11.000 lire (citare 

il cod. 84-06). 


N GO TU 150 

550 BEEP .007,4-0: PRINT AT y , X ; 

" "; GO TO 300 

56Q LET p =0 : LET cont=cont+ì: F 
OR 1=5 TO 20: PRINT HT r',10;" 

" : NEXT f; POR fa 17 Tu 21 
, PRINT AT f,Ili "SSSSSSSSS": NEX 

570 PRINT RT 15,14 ; "(5711" , RT 14,1 
4; INK PLOT 112,43: DRAU 

Ò,-8: DRAU 15,0: DRAU 0,3; PLOT 
112,42 : DRAU 15,0 
530 PRINT RT 10., 10; "Bravo ! ! ! " 

590 POR f =0 TO 500 STEP 5 
600 PRINT RT 0,7;s + f BEEP .01, 
f /10 : NEXT f 

610 LET r siNT (RND+29) +1 

620 IF b*(D="4" OR c$ir)*"<fr" 0 

r astri ..OR atCr+1)<>" " tre 

N GO TO 610 

530 LET b* tr ) = "<£>" : LET C*tr)="i£> 
LET ài ir Tu r+Da"©" 

640 IF contai THEN LET COritsfl- 
LET aia" ■O « 

LET bt=" ,£> 

& ": LET Cjs" 

RINT RT 7, 11'; FLR3H 1; "UN UOMO I 
N PIU"; FOR fai TG 100: NEXT f: 
LET V=V + i: GO SUB 120 
660 LET S ss+500: PRINT RT 0,7.1 S 
650 GÙ TO 40 

670 PRINT RT a- 1 ,b;”w"; hT a,b;" 
Ai": FÙR f =20 Tù -20 STEP -1: 6EE 
P .01, f: BEEP .01, f -20 : NEXT f 
6S0 PRINT RT a-l,b;" " ; RT a , b; " 

690 LET v =v-1: GO SUB 120 
700 IF V =0 TREN GO TG 730 
710 PRINT RT a-1, b; "£'\; AT a,b;" 

A" 

720 FOR fai TO 100: NEXT f: GO 
TO ISO 

730 CLS : PRINT RT 10,S; FLRSH 
1 ;"FINE DELLA PARTITA! '; FLASH 0 
; INDERSE 1RT 15,2;"Uuoi 9 i 0 v ar 
e ancora? (s/n)" 

760 IF INKEYi="5" THEN GO TO 20 
760 IF INKEY i = "rr' THEN STOP 
770 GO TO 750 

780 IF b <16 THEN GO TO 310 
790 IF C$(b-lì)="&" THEN GÙ TO 
670 

800 GO TO 203 

810 IF b$ ( b+Si ="(£}“ THEN GO TO 5 
70 

320 GO TQ 200 

S30 IF a$ib+15)<>" " TREN GO TO 
570 

340 GO TO 200 

350 FOR fai TO 4: FOR 0*1 TQ 3: 
NEXT 0 : PRINT RT a-l,b;" "RT a 


,b; " ": BEEP .006,30: BEEP .006, 

4.0: LET b = b + t INKEY**" 8" AND b<3l 
)-(INKEYia"6" AND b>l); PRINT hT 
a-l . b ; "2" ; RT a.b;"' 1 ": GO sub s? 

0 : NÉXf f 
360 GO TO 290 
370 LET a$=a*i2 T0 )+a$il) 

S80 LET b$=bit2 TO )+b$il) 

390 LET Ci=cit32)+C*( TO 31) 

900 BEEP .003,20 

SIO PRINT RT 8,0; INK è;bS(S Tu 
18);RT 20,0; INK 5;a * C16 T0 46) 

;hT 3,15; INK 5; C$ ts TO 20 5: RET 
URN 

920 LET eaPEEK 23675+256*P£EK 2 
3676: FOR fTu e+167; READ l: 
POKE f,C: NEXT f: RETURN 
9S0 DATh 24,102,66,66,60,24,255 
,139,139,169,139,36.36,66,66,231 
, 126,125,66,231,0,0,0,0,24,24,24 
, 255 255 

960'DATA 126,126,60,129,255,129 
, 129,129,255,129 129,255,6o , 35,4 
4,36,66,255,0,255,0,2S5,255,255, 
255,255,0 

970 DhTh 63,42,81.123,255,127,6 

3 ., 31,248,64,34,1,255,254,252,243 
,60,66,129,255,212,219,255,126,4 

4 . 24,36,66,145.169,169,126 

980 DATA 255,128,152,164,164., 15 
4,152.128,255,1,145,145,145,145, 
157,1,40,153.7+ ,, 0,129,66,0,3,192 
,2.65.34.146,146,41,36 
990 DATA 4,32,18,136,68,36,20,1 

46.3.143.43.65.72.145.170.164.60 
,126,255,255,8,3,40,56,24,36,195 
, 195,165.153,25S,60,60.60.60,36, 
36,66 66,231,169,139,139,36,36,3 

6.36.60 
995 RETURN 

1000 PLOT 57,154: DRAU 0,10: DRR 
U 5,0. DRAU 2,-2: DRRIJ O,-ó : DRh 
U -2,-2: DRAU -5,0 

1009 PLOT 57,154: DRAU 0,10: DPR 
U 5,0: DRAU 2,-2: DRRt-J 0,-6: GRR 
U -2,-2; DRAU -5,0 

1010 PLOT 63.154: DRAU 0,10: DRh 
U 7,0: PLOT 68.159: DRAU 5,0: PL 
OT 63 ,1S4: DRAU 7,0 

1020 PLOT 79,154: DRAU 0,10: ORA 
I.J 4.-4: DRAU 4,4: DRAU 0,-10: PL 
OT 91,154: DRAU 0,10; DRAU 7,0: 
DRAU 0,-10: DRAU -7,0 
1030 PLOT 102,154: DRAU 0,10: PL 
0T 102,154: DRAU 7,0: PLOT 112,1 
54: DRAU 0.10: PLOT 119,154: ORA 
U 0,10: DRAU -4,0: DRAU 8,0: PLO 
T 127,154 : : DRAU 0,10 
1040 PLOT 130,154: DRAU 0,10: DP 
AU 7,0: DRAU 0,-10: DRAU -7,0: P 
L0T 141.154; DRAU 0.1O: DRAU 8,- 
10 : DRAU 0.10: RETURN 


55 




